` ----------------------------------------------------
` User name (OS): Phil
` Date and time: 01/15/10, 09:10:16
` ----------------------------------------------------
` Method: FRRun
` Description
` 
`
` Parameters
` ----------------------------------------------------
`$1= Recurrsive Footrunner Call
`     1 = This call is made from a Footrunner file
`     0 = This call is made from 4D

`$2 = Path to Footrunner Document, Pass "" to prompt
`{$3...$17} = Optional text parameters to be passed into the footrunner
C_LONGINT($0;$1;xl_FR_Return;$xlRecurrsive;$i)
C_TEXT(${2};$ttDocPath;$ttDocContents)
C_TIME($rDoc)
$xlRecurrsive:=$1
$ttDocPath:=$2

xl_FR_Return:=0`Assume Success

If (Length($ttDocPath)=0)` no document specified
$rDoc:=Open document("";"";Read Mode )
If (OK=1)
CLOSE DOCUMENT($rDoc)
$ttDocPath:=document
End if 
End if 

If (Length($ttDocPath)>0)`  document specified
If (Test path name($ttDocPath)=Is a document )` no document specified
$rDoc:=Open document($ttDocPath;"";Read Mode )
If (OK=1)
RECEIVE PACKET($rDoc;$ttDocContents;MAXTEXTLENBEFOREV11 )
CLOSE DOCUMENT($rDoc)
$ttExecute:="xl_FR_Return:=FRRunText($ttDocContents;$xlRecurrsive"
For ($i;3;Count parameters)
$ttExecute:=$ttExecute+";$"+String($i)
End for 
$ttExecute:=$ttExecute+")"
EXECUTE FORMULA($ttExecute)
`xl_FR_Return:=FRRunText ($ttDocContents)
End if 
Else 
xl_FR_Return:=-43`Invalid Document
End if 
End if 
$0:=xl_FR_Return`Assume success
